home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / COMAL / A-COMAL Series / (k)aaq.d64 / a.dat < prev    next >
Text File  |  2007-02-28  |  2KB  |  99 lines
  1. 8000 FOR J:=1 TO 4 DO //A1
  2. 8010  PENUP 
  3. 8020  FORWARD 2
  4. 8030  PENDOWN 
  5. 8040  FORWARD 9
  6. 8050  PENUP 
  7. 8060  FORWARD 6
  8. 8070  PENDOWN 
  9. 8080  FORWARD 9
  10. 8090  PENUP 
  11. 8100  BACK 26
  12. 8110  LEFT 90
  13. 8120  FORWARD 1
  14. 8130  RIGHT 90
  15. 8140 ENDFOR J
  16. 8150 //
  17. 8160 FOR J:=1 TO 6 DO //2
  18. 8170  PENDOWN 
  19. 8180  FORWARD 11
  20. 8190  PENUP 
  21. 8200  FORWARD 6
  22. 8210  PENDOWN 
  23. 8220  FORWARD 11
  24. 8230  PENUP 
  25. 8240  BACK 28
  26. 8250  LEFT 90
  27. 8260  FORWARD 1
  28. 8270  RIGHT 90
  29. 8280 ENDFOR J
  30. 8290 FOR J:=1 TO 8 DO //3
  31. 8300  PENDOWN 
  32. 8310  FORWARD 28
  33. 8320  BACK 28
  34. 8330  LEFT 90
  35. 8340  FORWARD 1
  36. 8350  RIGHT 90
  37. 8360 ENDFOR J
  38. 8370 FOR J:=1 TO 6 DO //4
  39. 8380  PENDOWN 
  40. 8390  FORWARD 11
  41. 8400  PENUP 
  42. 8410  FORWARD 6
  43. 8420  PENDOWN 
  44. 8430  FORWARD 11
  45. 8440  PENUP 
  46. 8450  BACK 28
  47. 8460  LEFT 90
  48. 8470  FORWARD 1
  49. 8480  RIGHT 90
  50. 8490 ENDFOR J
  51. 8500 FOR J:=1 TO 8 DO //5
  52. 8510  PENUP 
  53. 8520  FORWARD 2
  54. 8530  PENDOWN 
  55. 8540  FORWARD 9
  56. 8550  PENUP 
  57. 8560  FORWARD 6
  58. 8570  PENDOWN 
  59. 8580  FORWARD 9
  60. 8590  PENUP 
  61. 8600  BACK 26
  62. 8610  LEFT 90
  63. 8620  FORWARD 1
  64. 8630  RIGHT 90
  65. 8640 ENDFOR J
  66. 8650 FOR J:=1 TO 2 DO //6
  67. 8660  PENUP 
  68. 8670  FORWARD 2
  69. 8680  PENDOWN 
  70. 8690  FORWARD 24
  71. 8700  PENUP 
  72. 8710  BACK 26
  73. 8720  LEFT 90
  74. 8730  FORWARD 1
  75. 8740  RIGHT 90
  76. 8750 ENDFOR J
  77. 8760 FOR J:=1 TO 4 DO //7
  78. 8770  PENUP 
  79. 8780  FORWARD 4
  80. 8790  PENDOWN 
  81. 8800  FORWARD 20
  82. 8810  PENUP 
  83. 8820  BACK 24
  84. 8830  LEFT 90
  85. 8840  FORWARD 1
  86. 8850  RIGHT 90
  87. 8860 ENDFOR J
  88. 8870 FOR J:=1 TO 2 DO //8
  89. 8880  PENUP 
  90. 8890  FORWARD 11
  91. 8900  PENDOWN 
  92. 8910  FORWARD 6
  93. 8920  PENUP 
  94. 8930  BACK 17
  95. 8940  LEFT 90
  96. 8950  FORWARD 1
  97. 8960  RIGHT 90
  98. 8970 ENDFOR J
  99.